﻿namespace HuwmanCode

open System

[<AutoOpen>]
module String =
    let (|Null|Empty|Whitespace|Text|) s = 
        if s = null then Null
        elif s = String.Empty then Empty
        elif s.Trim() = String.Empty then Whitespace
        else Text(s)
